class: center, middle, inverse, title-slide # Un cuento digital desde R ##
Cómo crear un relato situado con Leaflet
###
Natalia Morandeira
### Latin R 2021 ### 10-12 de noviembre de 2021 --- # Diapositivas .center[<img src="data:image/png;base64,#img/QR_DiaposLatinR.png" width="40%" alt="Código QR de acceso a las diapositivas"/>] .center[[nmorandeira.github.io/LatinR2021](https://nmorandeira.github.io/LatinR2021)] --- class: chapter-slide # Un cuento digital y situado --- # Disparador .pull-left[ - Convocatoria de un concurso de **cuento digital**, con un plazo definido. - Aprovechando el impulso del mundo R, ¿se puede hacer un cuento digital en este lenguaje? - ¿Mi historia tiene un componente espacial?] .pull-right[ .center[<img src="data:image/png;base64,#img/Leer_LopezBrazola.jpg" width="90%" alt="Ilustración de una persona leyendo, el libro tiene un ojo de cerradura en la tapa y a través de él se ve el ojo de la lectora"/>] .right[.tiny[Ilustración de [Martina López Brazzola](https://www.instagram.com/martinailustra)]]] --- # Disparador - Algunos apuntes en papel, un borrador del relato. .center[<img src="data:image/png;base64,#img/texto.gif" width="70%" alt="Animación mostrando mi mano escribiendo en un cuaderno el tÃtulo Detector de metales, luego el cuaderno se cierra"/>] --- # Identidad y universo personal .pull-left[ - Como escritora, en mi **universo personal** (_Mauricio Kartun_) están los paisajes, el campo, los humedales.] .pull-right[ .center[<img src="data:image/png;base64,#img/Puente.JPG" width="110%" alt="Puente roto de madera, sobre en un rÃo. Vista desde el puente de madera."/>] .right[.tiny[FotografÃa tomada en el A° Saladillo Dulce, Santa Fe]]] --- # Identidad y universo personal .pull-left[ - La **bajante del rÃo Paraná**: un año de pandemia estudiando incendios en el Delta. Y al visitar en 2021 encuentro otra cara de la bajante: los _detectores de metales_ en la costa de rÃos y lagunas.] .pull-right[ .center[<img src="data:image/png;base64,#img/Bajante_LopezBrach.png" width="120%" alt="El lecho de un rÃo muy seco, casi sin agua, frente a un poblado."/>] .right[.tiny[FotografÃa de [Sebastián López Brach](https://www.instagram.com/lopezbrachs/)]]] --- # Identidad y universo personal .pull-left[ - La creatividad como producto de la **asociación de ideas** que no estaban relacionadas: un detector de metales, una foto que alguna vez vi. Y luego: la misma elaboración del cuento situado en paisajes que alguna vez visité.] .pull-right[ .center[<img src="data:image/png;base64,#img/DetectordeMetales_AlanMonzonRosario3_distort.jpg" width="120%" alt="Un hombre vestido con camisa de trabajo, bermudas y visera explora la orilla del rÃo Paraná con un artefacto largo, el detector de metales"/>] .right[.tiny[Imagen distorsionada a partir de foto de Alan Monzón.]]] --- class: chapter-slide # La restricción como potencia para la escritura creativa --- # ¿Qué restricciones? - El cuento tiene un **componente espacial explÃcito**: situado en un mapa. -- - Texto dividido en **fragmentos** breves. -- - Un máximo de **caracteres** totales y tiempo de lectura. -- - Navegabilidad y accesibilidad. -- - Mis propias limitaciones para programar en R (y para narrar). --- # Y estas elecciones... - La mención al **espacio geográfico** no estará en la narrativa sino sugerida en el mapa. -- - Los fragmentos se podrán leer en un **orden aleatorio**. -- - Un único punto de vista y narrador. -- - El **principal lenguaje** será la ficción narrativa. -- - Lo digital debe ser simple. --- class: chapter-slide # El cuento --- # Link al cuento .center[<img src="data:image/png;base64,#img/QR_cuento.png" width="40%" alt="Código QR de acceso al cuento"/>] .center[[nmorandeira.github.io/detectordemetales](https://nmorandeira.github.io/detectordemetales)] --- # Datos de entrada 1. El texto, separado en párrafos con comas como delimitadores. Opcional: lenguaje HTML para darle formato. 2. Objeto espacial (shp o gpkg): 5 puntos, cada uno con un ID. .center[<img src="data:image/png;base64,#img/textoplano.png" width="80%" alt="Texto sin formato, separado en párrafos"/>] --- class: chapter-slide # El código de R --- # LibrerÃas necesarias .center[<img src="data:image/png;base64,#img/hexstickers.png" width="55%" alt="logo de Leaflet y hex stickers sf, rmarkdown, dplyr, htmltools y xaringan"/>] --- # Procesos del flujo de trabajo a. Lectura del relato y del archivo vectorial ```r library(sf) library(dplyr) detectormetales <- st_read("data/DetectorMetales.shp", quiet=TRUE) %>% arrange(id) relato <- read.csv("data/relato.txt", header=FALSE) ``` --- # Procesos del flujo de trabajo b. Unión relacional: puntos del objeto espacial con párrafos ```r relato$id <- c(1,2,3,4,5) detectormetales<-left_join(detectormetales, relato) ``` --- # Procesos del flujo de trabajo c. Creación del mapa base con uno o más proveedores de Leaflet. ```r library(leaflet) library(htmltools) ``` ```r mapa_base <-leaflet(width=750, height = 450) %>% addProviderTiles("Stamen.Watercolor", group="Acuarela", options = providerTileOptions(attribution = "Acuarela de fondo: Stamen Design Watercolor, CC BY 3.0. Datos OpenStreetMap, CC BY SA 2.0" )) %>% addProviderTiles("OpenStreetMap.Mapnik", group = "Mapa", options = providerTileOptions(attribution = "Mapa de fondo: © OpenStreetMap contributors, CC BY-SA 2.0" )) %>% addProviderTiles("Esri.WorldImagery", group = "Satelital", options = providerTileOptions(attribution = "Imágenes de fondo: © Esri; Esri, i-cubed, USDA, USGS, AEX, GeoEye, Getmapping, Aerogrid, IGN, IGP, UPR-EGP, y GIS User Community" )) %>% setView(-60,-34, zoom = 5) #mapa_base ``` --- # Procesos del flujo de trabajo d. Despliegue de marcadores y etiquetas "pop-up" ```r icons <- awesomeIcons( icon = 'ios-keypad', iconColor = 'white', library = 'ion', markerColor = c("tomato", "cadetblue", "blue", "green", "purple") ) etiqueta <- popupOptions( maxWidth=500) ``` --- # Procesos del flujo de trabajo d. Despliegue de marcadores y etiquetas "pop-up" ```r mapa_final <- mapa_base %>% addAwesomeMarkers(data=detectormetales, popup=~detectormetales$V1, popupOptions=etiqueta, icon=icons) %>% addLayersControl(baseGroups = c("Acuarela", "Satelital", "Mapa")) mapa_final ``` --- # Procesos del flujo de trabajo e. Knit y exportación de html ```r file.copy("detectordemetales.html", to="docs/") file.rename("docs/detectordemetales.html", to="docs/index.html") file.remove("detectordemetales.html") ``` --- # Accesibilidad .pull-left[ - Leaflet es poco accesible para quienes usan lectores de pantalla. - Incluà una versión del texto en la que intenté transmitir la presentación del cuento y respetar la posibilidad de leer al azar. ] .pull-right[ .center[<img src="data:image/png;base64,#img/QR_accesible.png" width="80%" alt="Código QR de versión accesible"/>] .center[[tinyurl.com/CuentoAccesible](https://github.com/nmorandeira/detectordemetales/blob/main/detectordemetales.md)] ] --- class: chapter-slide # Qué aprendà --- # Qué aprendà de R y Leaflet - Mejoré mi uso de xaringan y de Leaflet. - Leaflet es poco accesible y la navegabilidad del relato es limitada en dispositivos celulares. --- # Qué aprendà de R y Leaflet - Conocà otras herramientas para crear relatos situados, como [*leaflet-storymap*](https://github.com/slead/leaflet-storymap) y otras (ver sección _Compare with_ en ese repositorio). .center[<img src="data:image/png;base64,#img/storymap.gif" width="70%" alt="Animación mostrando el comportamiento del Demo de Story Map"/>] --- # Qué aprendà de narrativa - Escribir con restricciones y con un disparador abre posibilidades de creación. -- - En esta modalidad de cuento digital, el mapa narra el recorrido espacial de la historia. -- - La escritura mejora al leer en un colectivo. -- - Algunas/os lectoras/es prefieren conocer el orden cronológico..., pero varias personas disfrutaron de reconstruir la historia y me señalaron órdenes alternativos a los que yo habÃa pensado. --- # Conclusiones - El proyecto de cuento situado puede crecer: por ejemplo, se pueden sumar escenas o incluir capas con distintos puntos de vista. También es posible construir un relato colaborativo usando control de versiones. - R da para todo: seguiré explorando :) --- # Conclusiones - Errar al blanco para corregir. .center[<img src="data:image/png;base64,#img/error.png" width="60%" alt="Blanco de arquerÃa con flechas que no acertaron en el centro"/>] --- ### ¡Muchas gracias! .pull-left[ .medium[ Gracias a la comunidad de **LatinR** por alentarme a enviar este trabajo, por las amorosas revisiones y por darme el espacio para exponer desde esta identidad mixta de escritora, ecóloga y usuaria de R. Gracias a _Gabo Gaona_ de **RSpatial_ES** por ayudarme con la visualización del mapa en xaringan. A _Martina López Brazzola_ [@martinailustra](https://www.instagram.com/martinailustra/) y a _Sebastián López Brach_ [@lopezbrachs](https://www.instagram.com/lopezbrachs/) por autorizarme a usar imágenes de su autorÃa. ]] .pull-right[ .medium[ .center[ <svg viewBox="0 0 496 512" style="height:1em;position:relative;display:inline-block;top:.1em;" xmlns="http://www.w3.org/2000/svg"> <path d="M165.9 397.4c0 2-2.3 3.6-5.2 3.6-3.3.3-5.6-1.3-5.6-3.6 0-2 2.3-3.6 5.2-3.6 3-.3 5.6 1.3 5.6 3.6zm-31.1-4.5c-.7 2 1.3 4.3 4.3 4.9 2.6 1 5.6 0 6.2-2s-1.3-4.3-4.3-5.2c-2.6-.7-5.5.3-6.2 2.3zm44.2-1.7c-2.9.7-4.9 2.6-4.6 4.9.3 2 2.9 3.3 5.9 2.6 2.9-.7 4.9-2.6 4.6-4.6-.3-1.9-3-3.2-5.9-2.9zM244.8 8C106.1 8 0 113.3 0 252c0 110.9 69.8 205.8 169.5 239.2 12.8 2.3 17.3-5.6 17.3-12.1 0-6.2-.3-40.4-.3-61.4 0 0-70 15-84.7-29.8 0 0-11.4-29.1-27.8-36.6 0 0-22.9-15.7 1.6-15.4 0 0 24.9 2 38.6 25.8 21.9 38.6 58.6 27.5 72.9 20.9 2.3-16 8.8-27.1 16-33.7-55.9-6.2-112.3-14.3-112.3-110.5 0-27.5 7.6-41.3 23.6-58.9-2.6-6.5-11.1-33.3 2.6-67.9 20.9-6.5 69 27 69 27 20-5.6 41.5-8.5 62.8-8.5s42.8 2.9 62.8 8.5c0 0 48.1-33.6 69-27 13.7 34.7 5.2 61.4 2.6 67.9 16 17.7 25.8 31.5 25.8 58.9 0 96.5-58.9 104.2-114.8 110.5 9.2 7.9 17 22.9 17 46.4 0 33.7-.3 75.4-.3 83.6 0 6.5 4.6 14.4 17.3 12.1C428.2 457.8 496 362.9 496 252 496 113.3 383.5 8 244.8 8zM97.2 352.9c-1.3 1-1 3.3.7 5.2 1.6 1.6 3.9 2.3 5.2 1 1.3-1 1-3.3-.7-5.2-1.6-1.6-3.9-2.3-5.2-1zm-10.8-8.1c-.7 1.3.3 2.9 2.3 3.9 1.6 1 3.6.7 4.3-.7.7-1.3-.3-2.9-2.3-3.9-2-.6-3.6-.3-4.3.7zm32.4 35.6c-1.6 1.3-1 4.3 1.3 6.2 2.3 2.3 5.2 2.6 6.5 1 1.3-1.3.7-4.3-1.3-6.2-2.2-2.3-5.2-2.6-6.5-1zm-11.4-14.7c-1.6 1-1.6 3.6 0 5.9 1.6 2.3 4.3 3.3 5.6 2.3 1.6-1.3 1.6-3.9 0-6.2-1.4-2.3-4-3.3-5.6-2z"></path></svg> [Repositorio del cuento](https://github.com/nmorandeira/detectordemetales) 🕸[Mi página web](https://nmorandeira.netlify.app/) <svg viewBox="0 0 512 512" style="height:1em;position:relative;display:inline-block;top:.1em;" xmlns="http://www.w3.org/2000/svg"> <path d="M459.37 151.716c.325 4.548.325 9.097.325 13.645 0 138.72-105.583 298.558-298.558 298.558-59.452 0-114.68-17.219-161.137-47.106 8.447.974 16.568 1.299 25.34 1.299 49.055 0 94.213-16.568 130.274-44.832-46.132-.975-84.792-31.188-98.112-72.772 6.498.974 12.995 1.624 19.818 1.624 9.421 0 18.843-1.3 27.614-3.573-48.081-9.747-84.143-51.98-84.143-102.985v-1.299c13.969 7.797 30.214 12.67 47.431 13.319-28.264-18.843-46.781-51.005-46.781-87.391 0-19.492 5.197-37.36 14.294-52.954 51.655 63.675 129.3 105.258 216.365 109.807-1.624-7.797-2.599-15.918-2.599-24.04 0-57.828 46.782-104.934 104.934-104.934 30.213 0 57.502 12.67 76.67 33.137 23.715-4.548 46.456-13.32 66.599-25.34-7.798 24.366-24.366 44.833-46.132 57.827 21.117-2.273 41.584-8.122 60.426-16.243-14.292 20.791-32.161 39.308-52.628 54.253z"></path></svg> [@Nat\_Mora_](https://twitter.com/Nat_Mora_)] .center[<img src="data:image/png;base64,#img/Puente.JPG" width="85%" alt="Puente roto de madera, sobre en un rÃo. Vista desde el puente de madera."/> ]] ]